home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_401_DoMenuItem < prev    next >
Encoding:
Text File  |  1992-04-08  |  768 b   |  41 lines
  1. %if dialogExists%
  2.     %if modal%
  3.         {----------}
  4.         Procedure Do%MenuItemName%;
  5.         var
  6.             %menuItemName%Info:    %menuItemName%Rec;
  7.         Begin
  8.             with %menuItemName%Info do begin
  9.                 {initialize info}
  10.                 %for each item gen init field%
  11.  
  12.                 if Get%MenuItemName% (%menuItemName%Info) then begin
  13.                     {use info}
  14.                 end;
  15.             end; {with}
  16.         End; {Do%MenuItemName%}
  17.  
  18.     %elsif modalOneShot%
  19.         {----------}
  20.         Procedure Do%MenuItemName%;
  21.         var
  22.             %menuItemName%Info:    %menuItemName%Rec;
  23.         Begin
  24.             with %menuItemName%Info do begin
  25.                 {initialize info}
  26.                 %for each item gen init field%
  27.  
  28.                 Get%MenuItemName% (%menuItemName%Info);
  29.                 {use info}
  30.             end; {with}
  31.         End; {Do%MenuItemName%}
  32.  
  33.     %endif%
  34. %else%
  35.     {----------}
  36.     Procedure Do%MenuItemName%;
  37.     Begin
  38.     End; {Do%MenuItemName%}
  39.  
  40. %end if%
  41.